home *** CD-ROM | disk | FTP | other *** search
/ Regional Industry Buying Guide: Greater Florida / 2000 Regional Industry Buying Guide - Greater Florida.iso / cs2k / clients / classic / scripts.lib / UPDATE.SCR < prev    next >
Encoding:
Text File  |  1997-02-26  |  1.0 KB  |  54 lines
  1. !
  2. !  Copyright (c) 1993
  3. !  by CompuServe Incorporated, Columbus, Ohio
  4. !
  5. !  The information in this software is subject to change without
  6. !  notice and should not be construed as a commitment by CompuServe.
  7. !
  8. !  UPDATE:
  9. !    Starts the download of the Phone database
  10. !
  11. !+V
  12. ! "3.5"
  13. !-V
  14.  
  15. show "Connected to Network Phone Database Host";
  16. WaitTime = 80;
  17. on cancel goto Return_Cancel;
  18.  
  19. Connect_Wait:
  20.     wait
  21.         "^[I"        goto Send_Response,
  22.         "^E"        goto Process_ENQ,
  23.         "^PB"        goto Return_Success,
  24.         %mdm_Failure    goto CIS_No_Carrier
  25.     until 300;
  26.  
  27.     define %FailureMsg = "Host did not initiate download";
  28.     exit %Failure;
  29.  
  30.  
  31. Send_OK_Cmd:
  32.     send "dow phone.dms^M";
  33. WaitTime = 200;
  34.     goto Connect_Wait;
  35.  
  36. Process_ENQ:
  37.     send "^P++^P0";
  38.     goto Connect_Wait;
  39.  
  40. Send_Response:
  41.     sendi %ESCIResponse;
  42.     goto Connect_Wait;
  43.  
  44. CIS_No_Carrier:
  45.     define %FailureMsg = "Modem connection lost";
  46.     exit %Failure;
  47.  
  48. Return_Success:
  49.     show "Downloading new phone database";
  50.     exit %Success;
  51.  
  52. Return_Cancel:
  53.     exit %Cancel;
  54.